home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 October / Macworld (1998-10).dmg / Serious Demos / Agamik BarCoding / Agamik BarCoder Demo 3.03 / Agamik BarCoder Demo 3.03.rsrc / STR#_4011.txt < prev    next >
Encoding:
Text File  |  1998-05-23  |  875 b   |  63 lines
  1. %%DocumentPreview: Macintosh_ColorPic
  2.  
  3. %%EndComments
  4.  
  5. %%BeginProcSet: Agamik_cmykcolor 1.1 0
  6.  
  7. currentpacking true setpacking
  8.  
  9. userdict /Agamik_cmykcolor 4 dict dup begin put
  10.  
  11. /initialize
  12.  
  13. {
  14.  
  15. /setcmykcolor where { pop }
  16.  
  17. { userdict /Adobe_cmykcolor_vars 2 dict dup begin put
  18.  
  19. /_setrgbcolor
  20.  
  21. /setrgbcolor load def
  22.  
  23. /_currentrgbcolor
  24.  
  25. /currentrgbcolor load def
  26.  
  27. Agamik_cmykcolor begin
  28.  
  29. Agamik_cmykcolor
  30.  
  31. { dup xcheck { bind } if pop pop } forall
  32.  
  33. end
  34.  
  35. end
  36.  
  37. Agamik_cmykcolor begin
  38.  
  39. } ifelse
  40.  
  41. } def
  42.  
  43. /terminate { currentdict Agamik_cmykcolor eq {  end } if } def
  44.  
  45. /setcmykcolor { 1 sub 4 1 roll 3 { 3 index add neg dup 0 lt { pop 0 } if 3 1 roll } repeat
  46.  
  47. Adobe_cmykcolor_vars /_setrgbcolor get exec
  48.  
  49. pop } def 
  50.  
  51. /currentcmykcolor {
  52.  
  53. Adobe_cmykcolor_vars /_currentrgbcolor get exec
  54.  
  55. 3 { 1 sub neg 3 1 roll } repeat 0 } def
  56.  
  57. currentdict readonly pop end
  58.  
  59. setpacking
  60.  
  61. %%EndProcSet
  62.  
  63.